From: Jim Blandy <jimb@redhat.com>
Date: Tue, 29 Jun 1993 23:04:11 +0000 (+0000)
Subject: * xfns.c (Fx_create_frame): Check for internalBorder resource, as
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95137
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ddf768c3cf57a412f525b53aa30f014db963deec;p=emacs.git

* xfns.c (Fx_create_frame): Check for internalBorder resource, as
	well as internalBorderWidth.
---

diff --git a/src/xfns.c b/src/xfns.c
index dcd602542ff..d9dacbccb8d 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1742,7 +1742,19 @@ be shared by the new frame.")
 		       "font", "Font", string);
   x_default_parameter (f, parms, Qborder_width, make_number (2),
 		       "borderwidth", "BorderWidth", number);
-  /* This defaults to 2 in order to match xterm.  */
+  /* This defaults to 2 in order to match xterm.  We recognize either
+     internalBorderWidth or internalBorder (which is what xterm calls
+     it).  */
+  if (NILP (Fassq (Qinternal_border_width, parms)))
+    {
+      Lisp_Object value;
+
+      value = x_get_arg (parms, Qinternal_border_width,
+			 "internalBorder", "BorderWidth", number);
+      if (! EQ (value, Qunbound))
+	parms = Fcons (Fcons (Qinternal_border_width, value),
+		       parms);
+    }
   x_default_parameter (f, parms, Qinternal_border_width, make_number (2),
 		       "internalBorderWidth", "BorderWidth", number);
   x_default_parameter (f, parms, Qvertical_scroll_bars, Qt,